#!/usr/bin/perl
#change_lang.cgi

require './setlang-lib.pl';

&ReadParse();
&lock_file("$config_directory/config");
$gconfig{'lang'} = $in{'lang'};
&write_file("$config_directory/config", \%gconfig);
&unlock_file("$config_directory/config");
&nas_syslog("setlang", "naslog_info", 35000, "Change language to $in{'lang'}");
&redirect("");

